unit fGlsViewBitmap;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.ExtCtrls,
  Vcl.Menus;

type
  TViewBitmapForm = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    SaveImage1: TMenuItem;
    Exit1: TMenuItem;
    SaveDialog1: TSaveDialog;
    procedure Exit1Click(Sender: TObject);
    procedure SaveImage1Click(Sender: TObject);
  private
     
  public
     
  end;

var
  ViewBitmapForm: TViewBitmapForm;

implementation

{$R *.dfm}

procedure TViewBitmapForm.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TViewBitmapForm.SaveImage1Click(Sender: TObject);
begin
  If SaveDialog1.Execute then
  Image1.Picture.SaveToFile(ChangeFileExt(SaveDialog1.FileName,'.bmp'));
end;

end.
